AE ee ee ern ee eee eateries iene eee ee ee EN eS CERES SERIES Se ae ant. ake Eats 


“healt Cregeen: ec Rent one he steer ie bier ce ee, 


DISTRIGUTION LIST = wits AX SFr 


B180C/B17C0 SOFTWARE PRODUCT SPECIFICATIONS 


Detroit 


J. Freeman - Prod. *gmt. 


Fe Schoeman - International 
He Fe Hayde - International 
Ke Stokes - Prod. MgOmte 

Se Johnson - 8MG | 

he Varns = BMG 

ite. Atkins - BMG 


UeSs and Europe 


Ke Conry (Plymouth) | 

De Re Bookwalter (Flymouth) 
Je He. Pedersen (Flymouth) 
Je Berta (Downtngtcun) 

We Minarcik (Paol1) 


Ge Smotnik (Paoli) 


Je Murtaugh (Trecayffrin) 

Ae Kosta (McLean) 

Ae Lacaneta - F&SSG (McLean) 
Be Belt (Malvern) 

Mgr» WADC CIrvine) 

Re Solt (Pasadena ) 

He Me. Townsend (Pésadena) 

Ne Cass - Pate. Atty. (Fasacena) 
Es. Sweaney (Mission Viejo) 

E. O. Earnest (Mission Viejo) 
Je Je Dowling (Chwesttake) 


santa Bartara Plant 


VR. Se Bunker 


Je Hate 

Re Shobe 

K. Meyers 

Re Sauerle 

Ae van der Linden 
Ee Yarai 

Je Oarga 

Be Ross-smith 
Le. Thomas 

Je Henige 

8. Dodson 


Singte Cory 


Hilti - TC» BM & SS 
Merton = GPS» 8M & SS 
Shifman - CSG 

Ge Cleary - SSG 

E. Plemting - Intl F. E. 
Dent - CSG | | | 
Dahe - Corp. Eng. 


Single Cocy 


C. Allan (Glenrothes) 
McKee (Cumbernauld) 
Je Carradine (Cumrernauld) 


More NPSGre CRuislio) 


P. 


E. 
Ge 
Je 


Ke 


Re Evans (Middlesex) 
Gerain (Pantin) 

Iscta (Gennevieliers) 
Corrit (CSeneffe) 

C. wery (Liege) 
Bouvier (Liege) 
Cazanove (Villers) 
Hamnerstley (Croydon) 
Samfan (Liege) 


Single/Multicte 


Munsch = 2 
Hammond - 2 
Casey - 1 
King - € 


FEB 10 1978 


GENERAL MANAGER 


Distribution current as-of 12/22/77 


\ 


OF 


— PAGE 


DOCUMENT TRANSMITTAL 


B1800/B1700 


PL FILE NO. 


- 

: 

+t ” 
S x 
5 | £ 
z ww 
Fd 4 

oD 


DOCUMENT 
NUMBER 


2212 5322 


P.S. 


SBP 1085 REV. 9-71 


PeSe. ZZE2. 5322 
“Burroughs Corporation 


COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


B1800/B1700 FORTRAN COMPILER 


PRODUCT SPECIFICATION 


ORIGINAL ISSUE 
Updated to 7.0 Version. 


All _ Updated to VII.O level and restructured 
organizationally. B1700 changed to B1800/B1700. 
Tables numbered. | 
1 SYSTEM/PATCH information added to Pass 1 output. 
-2 to 2-3 ENVIRONMENT subsection reordered. Card reader 
and printer become optional hardware, no longer 
required. S-memory requirement changed from 
16,000 to 12,600. Disk requirement changed 
from 52,000 to 127,000. Table 2-1 clarified. 
3-1 to 3-6 BCD, BIND, CODE, CONTROL, DATAMAP, DOUBLE, END, 
INITIAL, INTERPACK, INTERPRETERPACK, INTRINPACK, 
INTRINSICPACK, . LIBRARY, LIBRARYPACK, LIST, MAP,] 
MERGE, NEW, NO, PAGE, RANGE, SEQ, SEQERR, 
SINGLE, TRUNCATE.NAMES, VOID and XREF options 
added. ERRORTRACE, SEPARATE, SYMBOLTABLE, 
TRACEC, BINDER.MONITOR and BSELECTIVEDEBUG 
deleted or supetseded.:. 2. HARDWARE.MONITOR 
and TRACE moved to Table 3-1 from Table 3-2. 
NO CPA warning added to Table 3-2. INTRINSICS 
amplified to Table 3- 2. Two paragraphs added 
after tables. | 
41 to 4—5 All new from FORTRAN/INTMAKER generates... 
| paragraph to end of section. 
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GENERAL DESCRIPIION 


The Fortran coapiter accepts Burroughs Standard (Cmininum tlevet) 
Fortran source language as input and generates an executable 
Fortran S-language file as output. | 


The coapiler itself is a three-pass progran written in SDL that | 
produces» according to the options set» either an intermediate 
code modufle CICM) fer each subprogram or a final code fite for 
the group of subprocgraas being coupitled. 


This product specification describes the environment = and 
operation of the ccapiler» defines the current exceptions to 
G@urroughs Standard Fortran and discusses the Fortran intrinstics 
and FORTRAN/INTMAKER. Further information about Fortran and the 
Fortran Slanguage is in the related documentation listed beicw. 


BELATED DOCUMENTATION 


NAME NUMBER 
-B1890/81700 Fortran S-Language > P. Se 2201 6737 
81800/81700 Fortran Reference Manual 
81800/B1700 Fortran Manual | 1081882 


Burroughs Standard Fortran 


STANDARDS 


The Fortran tlanguage implemented on the £&1800/817090 is based an 
the minisuamlevet Language specified by the S8urroughs Standarc 
Fortran Manual. In general» the Burroughs Standard is compatible 
with 1966 ANSI fortran and has Fortran IV extensions. 
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EUNCTIONAL DESCRIPILON 
IHREE PASSES 
Pass 1 


The first pass accepts Fortran source and compiler control cards 
and produces an ICM CIntermediate Cede Modute) for each 
subprogram of the group of subprograms being compiled. 


Source language input media aay be punched cards» magnetic tape 
or disk. The source presented to the compiler aust be in EBCCIC 
or aoptionatty BCD cade. The compiler can merge symbotic sources 
on the basis of sequence nuabers.. 


As output» the first pass produces Coptionatly): 


{. An updated EBCDIC symbolic file on tape» disk of punched 
cards. 


Ze One or aore of the foltewing printed items? 


ae Input source with SYSTEM/PATCHKH information and an 
indication of merged records. 


b. Diagnostic messages indicating sources of errors» 
warnings and possibte errors. | 


Co Generated code instructions. 


3e  Nonexecutabie ICM files of the group of subprograms being 
| compiled. 


When separate ICMs are produced for each subprogram compileds the 
code in each ICM is in finat form except for data addresses and 
catls on subprograms. The compitation procedure may stop at the 
end of the first pass and start again with Pass 1 or Pass 2.) on 


one 
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subsequent executions of the compittier. 
PASS 2 


The second pass is used to collect the various subprograms of a 
program into a final code file. As subprograms ICMs are added to 
the finat cade file» subprogram calis are given their final code 
dictionary nuaber. COMMON blocks are processed by determining 
how much total data space each block requires. Code for 
referenced intrinsics is also added from a file consisting of 
ICMs for the intrinsics. 


PASS 3 


The third pass assigns final dictionary entries to COMMON and 
tocal data segments. [It then goes through the code of any 
subprograms not already having final data addresses and places 
the appropriate data dictionary number in data addresses. 


PERFORMANCE 


The perforagance cf the coapitier is highly dependent upon the 
81800/81700 hardware avaitabie. Compilation speeds vary fro a 
finiaun of 25 to a maxiaua of more than 1000 cards per sinute. 
These times do not include that required to bind the subprograms. 


ENVIRONNENT 

SOFTWARE 81800/81700 MCP released concurrently with the 
| 861800/81700 Fortran. | 

FIRMWARE: 81860/681700 Fortran and SOL interpreters released 


concurrently with the 81800/681700 Fortran. 


beh 
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REGUIRED HAROQWARE 
S“MEMORY , 1220600 bytes pius MCP requirements. 


OiSK OR SYSTEM DISK 1272000 bytes for the coegpiters 50-000 

Oe | bytes for the intrinsics» and additionat 
increments of approximately 11009 bytes 
per 1°00C source cards for code fites. 


CPTIONAL HAROWARE : 


TAPE OR OLSK ~ One tape for ofd symbolic input and one 
- tape for new symtolic output or 
sufficient disk space for one or both 


purposes. 
CARD READER One for source tanguage and controt 
| cards. 4 


PRINTER One for (istings (120 cotuans usede 
COMPILER CONTROL CARDS £8 CARDS) 


Conpiter controt cards ($ cards) gay be optionatly included itn 
the source deck ands if used» contain specifications to the 
compiler governing symbolic input and output. 


The dottar sign ("$"%)» which denotes a compiler control cards gay 
appear in coluan Lt or 23 options» with blanks as dedimiters» #ay 
follow innediatet y. [f the dollar sign is placed in card cotumr 
29 the compiier cortrot card image will be placed in the updated 
syabolic file Cif such a file is generated). Controt cards may 
not be continued. With the exceptions of ERRORTRACE and 
PROFILES» they may be placed at any point in the source deck. 


The format of the compiter control card is given in Table 2-1. 


nO RE ey, 3 7 a * = | 2ah 
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€ Card Cotuans | Contents 
Ll or 2 | $ 
2 through 72 Options in free-field format 
with blanks as delimiters 
73 through 80 | Sequence fietd or blanks 


Table 2-1: Conpiter Controt Card format 
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QPTIONS 


USER-ORIENTED OPIIONS 


The 81800/81700 set of options its a superset of 


in the standard. . 
Table 3-1. 

Option Defautt 
Bco | off 
BIND on 
COOE off 
CONTROL | on 
DATAMAP -- 
DOUBLE off 


DYNAMIC <now.> <-- 


ENO 2 


ERRORTRACE. off 


HARDWARESMON- -- 
ITOR <nusber> 


those specified 


Aiflowed user~oriented options are given in 


Function 


insteac 
from this point until otherwise 


Considers alt source input to be 8CD 
of EBCDIC> 
speci fied. 


Enables pass 2. 
ont y. 


NO 8IND is to perform pass i 
Prints a listing of the generated code. 
Enadles printing of $ cards in file LINE. 


(superseded by MAP) 


Effects doutte-spacing by writing a btank 
fine to file CLINE after each significant 
line. DOUBLE is exactly equtvatent to ANC 


Specifies the number of words of dynamic 
space used. If there are at least 190 pages» 
then the default is the sum of the 10 targest 
data pagess otherwises it is the sum of att 
the pages. ; 


Iaposes an immediate end-of-file on all input 
files. Special caution should be taken when 
using END while NEW is in effect. 


(function superseded by TRACEF) 
Uses tno-digit <number> 


monitoring devices (see 
specific devices). 


to control hardware 
specifications for 


(Table 3-1 is continued on next page) 
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‘Qotion Defaudt  Eunstion 


INITIAL on Initializes ait variables to zero» except 
| . those initialized by a DATA statement. NO 
INITIAL causes ail vartables to "undefined.* 


INTERPPACK | -- Gives pack where interpreter is to be founc. 
<€pack name> The default pack its that containing the 
coapiter. | | 


INTERPRETERPACK~- Same as INTERPPACK. 
<pack nage> 


INTRINPACK “- Gives pack where intrinsics are to be found. 
<pack name> The default pack is that containing the 
compiter. 7 


INTRINSICPACK -- Same as INTRINPACK. 
<pack nase> | 


LIBRARY <fite <-- Inserts the specified file at this point. 
name> | The <fite name> does not inctude a pack name; 
the pack containing the coapiler is assumed> 

untess LIBRARYPACK precedes LIBRARY. 


LIBRARYPACK -- Precedes the LIBRARY option to specify a vack 
<pack name> name for it. | | 


LIst on Controits tisting of program on printer. NC 
LIST on the first card means file LINE witt 
not be openeds on subsequent cards» it means 
nothing more witli be written to LINE untit 
LIST is specified. 


MAP off Generates a map of the code (Cor data) 
a addresses of the tabets Cor variabtes) used 
in the progr an. 


“MERGE off Merges file CARDS with file SOURCE» based on 


sequence numbers (cotumns 73780). 
NEW off Generates updated symbolic file NEWSOQURCE. 


CTabte 3-1 is continued on next page) 
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“Option Default  Eunetion 
NO => May precede any options to disable it. Some 


options (those with “"--" in the default 
column of this tabte) do net have on or off 
states and will simpty ignore NO. N0Q is 


distributive over a cards a ee 
$NO0 CIST CODE BIND is equivalent to 
$NO LIST NO CODE NO BIND. 

PAGE | -- Starts new page before continuing listing in 
file LINE. 

PROFILES off Shows execution statistics of the subprograr 


and the statements within the sutprograms tec 
adlow code optimization. If usede PROFILES 
must be placed before the first executable 
Statement of a subtprograa. Cnce set» it 
resains on for subsequent subprograms until 
removed by NO PROFILES» which may occur at. 
any potnt in a program. PROFILES shows how 
often and for how tong each subprogram was 
useds how often individual statements were 
used within a subprogram and the use of the 
different types of FORTRAN statements during 
progras execution. : 


4 
m 


RANGE <base> == Modifies parameters of a previously specified 
<increrent> §&@ option. The <base> must be specified. 
The <increment> defautts te 100 if not 

speci fied. 


SAVETICM o f f Causes the intermediate code fites of a 
| source program to remain on disk after 
binding. 


SEPARATE == (deleted) 


SE@ <base> = Resequences fite from this point. [f no 
<increspent> parameters are specified» the first record is 


gecquenced as 1009 and the increment is 1000. 
If only one parameter is specified» it 1s 
assumed to be the base and the increment is 
1000. | 


(Table 3-1 is continued on next page) 
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Qotion Default Function 

SEQERR off Checks for numbers in sequence field which 


may be cut of sequence. 


SINGLE | on Effects single-spacing>» with no 
nonsignificant bdtank tines written to LINE. 
SINGLE is exactty equivatert to NO DOUBLE. 


STACKSIZE = Specifies the number of words to be used for 
<number> the evaluation stack. The default is 100 anc 
Baxinus is £095. | 7 


SUPPRESS o f f Suppresses printing of warning messages. 


SYMBOLTASBLE -- (superseded by MAP) 


TRACE <nusber> -- Prints S-machine-devel trace information 
| during program execution. The <number> is a 
three~bit mask as specified for SOL. This is 


ineffective without the FORTRAN/TRACE 
interpreter. 
TRACEC off (deleted from user use) 


TRACEF | off Gives a high-tevel trace of FCRIRAN statement 

| | executions. Once set» it remains on for ait 

subsequent statements until removed by NO 

| TRACEF. Each TRACEF tine contains the name 

| of the current subprogram>» the 

‘ 7 compiter-generated line number of the 

ia currrent statement in the subprogram and an 
; | | identification of the statement. 


TRUNCATE.NAMES of f Suppresses syntax error for variable 

7 | identifiers more than six characters tang. 
The conpiler will stilt “see only the first 
Six characters of an identifier» so caution 
must be used in keeping names untque. 


(lable 3-1 is continued on next page) 
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— Gotion Defauit Function 


VOID <ending “= Voids cards in file SOURCE. VOIO is vatia 
S@Qe NOe> | ontiy in fide CARDS. The VOIO controt card 
| must have a sequence number in cotuans 73-780. 
Beginning with the first card (after the VCIC 
card) which has a sequence number equal to or 
greater than that on the VOID cards» the 
compiter will void ali cards untit it fings 
one greater than the specified <ending 
sequence nuater>. {tf none is specifieds it 
is assumed equat to the VCID card sequence 
nuaber. | 7 | | 


XREF == Generates a fu cross-reference tabte of aii 
tabel and variabite names in the whole 
coapiiation. 


Table 3-1: User-Oriented Gptions 
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QOTIONS FOR INTRINSICS 


In addition to the user-oriented options descrited above the 
options given in table 3-2 are used in devetoping intrinsics: 


Option Defautt — Function. 


BINDER.MONITOR “- (deleted from user use) 
BSELE VT IVEDESUG -- (deleted from user use) 
CPA on Emits a compare parameter operator to 


check parameters at run time. NO CPA 
should be used only when compiling I1/0 


intrinsics» and then with extreme 
| caution. | 
INTRINSICS of f Causes first pass of compiler to perfors 


speciat processing for the subprograns 
considering it an intrinsic rather than 
a normal subroutine. | 


NEWINTRINSIC off Causes first pass of binder to perfora 
special processing for the subprograns 
considering it an intrinsic rather than 
a normal subroutine. — 7 


Table 3°23 Intrinsics-Oriented Options 


When setting up intrinsic routiness the procedure is stightly 
different for 1/0 intrinsics and for other intrinsitcs. In the 
case of I[/0 intrinsics» the intrinsic name must begin with the 
fetter Q@ and NO CPA aust be specified. For other intrinsicss the 
nagwe gust begin with any non-Q tetter and CPA must be on. 


In either cases the next step is te specify INTRINSICS» 
NEWINTRINSIC ande optionally» SAVEICM. To bind the intrinsic 
into the intrinsics file Cas opposed to being bound into this 
immediate code fite oanly)» FORTRAN/INTMAKER must be run on it 
afterwards. 7 7 
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INIRINSICS 


STANDARD EILE 


The intrinsic file released as part of 618600/81700 Fortran 
supplies eathematical functions and subroutines as specified by 
the standard. Also included in the file are subprograms used for 
format controt of I/0. These are written in Standard Fortran»e 
with some identifiers interpreted as special S-machine operators. 
The subprograss are compiled separately» then collected together 
as an intrinsic file by the FORTRAN/INIMAKER progr aa. 


‘euiiisbnitneiiaics 


The FORTRAN/INTMAKER program is used to create and modify the 


intrinsic file released as part of the 81800/81700 Fortran 
systeme | 


The user may coapile subprograms which are to be used by severat 
programs and add them to the intrinsic file. This frees the user 
from having auitiple copies of a subprogram when he wishes to use 
different pack and family names in naming his programs. Access 
to subprograms in the file is aiso faster than those existing as 
separate files. 


Individual subprograss may be added» removed or replaced as 
desired. 


FORTRAN/INTMAKER generates a new intrinsic file by creating a new 
file coabining existing ICMs» by adding intrinsics to an existing 
files or by replacing or removing then. 


Sefore execution of FORTRAN/INIMAKER> all intrinsics to be placec 
in the intrinsic file should either already be in an existing 
intrinsic file or exist as individual ICMs (created by SSAVEICH 
at compite time) on a common pack and with a common multifile id. 


Input files invotved are given in Table 4-1. Output files 
invoived are given in Table 4-2. 
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Input File Externat File Name | Contents 

CLO.INTRIN FOR. INTRIN Old intrinsic file to be up- 


dateds used in A0Os»s REMOVE 
and REPLACE mode. 


ICM (changed during Individuat ICM files to be 
| execution) added to new files created 
| by Fortran compiter with 
SSAVEICM. | 
CARD _ CARDS ‘3 Controt specifications 


Tabte 4-13 INTMAKER Input Files 


Cutput File Externat File Name Contents 


LINE LINE Output Listing of actions 
| 7 taken. 
NEWSINTRIN NEW.INTRIN |  -Inteinsic file being createc. 


Table 4-23 INTMAKER Output Files 


To create a new intrinsic file» use the CARD deck given in Tattle 
&-3a; to godify an existing file» use the deck in Table 4-3b. 
Semantics of these cards are explained in Table 4-3c. 


@ 
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—2EX FORTRAN/INTNAKER 
DATA CARDS | 
SICM.PACK.FAMILY X/Y 
SINTRIN.OUT AsB/C 
SCREATE 
ICM #1 
ICM #2 


ICM#N 
ZEND 


Table 4-3a: Deck to Create New Intrinsic File 


ZEX FORTRANZINTMAKER 
2DATA CARDS 


SICMePACK.FAMILY 8=6—P/F 
SINTRIN.IN A/B/C 
7 - $INTRIN.OUT KX/Y/2 
| SREPLACE Cor S$REMOVE or S$ADD) 
} | IcMel | | 
ICMAN _ | 
$REPLACE Cor SREMOVE or SADD) 
ICM #1 
ICM &M 
2END | 
: | a ; ‘Table 4°-3b3 Deck to Modify Intrinsic File 
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Option _ Function 


ADD The ICMs specified by the following cards witt 
7 be added to the existing file. 


CREATE | This card may not appear in the same input 
| deck with any cther sCREATE» SADD>» SREMOVE or 
SREPLACE cards. 


when presents a new intrinsic file wilt be. 
created»s containing those ICMs specified by 
the foltowing cards. | | 


when not presents the existing intrinsic file. 
is used as a templates from which ICMs may be 
replaced» reaoveds or to which [CMs may be 
added. : | 


ICMEN | ICM#@N is the name of an ICM (Cfile-id onty). 
Only one name may be specified per card. Each 
group of ICM-name cards must be preceded by 
either a SCREATE>s S$REPLACE» SsREMOVE or $ADD 
card. 


ICM. PACK.FAMILY Must be present. Specifies pack and famity ia 
| of ald [CMs to be added. 


INTRIN.IN -_ May be used to override the default name 
C*FORJINTRIN®) of the existing intrinsic file 
to be modified. 


If SCREATE is to be specifieds file OLDINTRIN 
wifi not be opened. Therefore» this card is. 
only effective when modifying an existing 


— INTREN.OUT May be used to override the defauit nane 
| C"NEWINTRIN@) of the file being created. 


REPLACE 7 The ICMs specified by the fotlowing cards wiit 
7 be replaced from the existing file by new [CMs 
with the same names. , 


FEMOCVE — 7 | The ICMs specified by the following cards witt 
| 7 be deleted from the existing file. 


Table 4-3c3 Semantics of Controts in Tables 4°3a and 4~3b. 
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COMPUTER SYSTEMS GROUP «1800781700 FORTRAN COMPILER 


SANTA BARBARA PLANT PeSe 2212 5322 (8B). 


Errors wilt be given if: 


The totat nusber of intrinsics in the existing file» plus 
the nuaber cf additions and removaiss exceeds 2563 


An attempt is made to add an existing ICM3 
A misplaced card or an unrecognized $ caed is seen? 
More than one SICM.PACK.FAMILY card is seen3 or 


A SCREATE card is intersixed with other options. 


BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP ~ 


SANTA BARBARA PLANT 


INDEX 


COMPILER CONTROL CARDS (8 CARDS) 


ENVIRONMENT £72 


FORTRAN/SINTMAKER 4-1 


FUNCTIONAL DESCRIPTION 2-1 
GENERAL DESCRIPTION Ii-t 
INTREINSICS 4-1 

OPTIONS 3-1 | 
CPTIONS FOR INTRINSICS 3-6 
PASS t 2~1 

PASS 2 2-2 

PASS 3 2-2 


PERFORMANCE 2-2. 


RELATED DOCUMENTATION  i1-1 
STANDARD FILE 4-1 | 
STANDARDS 1-1 


THREE PASSES 2~1 


USER-ORIENTED OPTIONS 3-1 


IX-1 
COMPANY CONF ICENTIAL 


B1800/81700 FCRIRAN COMPILER 


